home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / CAPSTR.INC < prev    next >
Text File  |  1989-07-08  |  252b  |  17 lines
  1.  
  2. procedure capstr(var s: string);
  3. var
  4.    i:    integer;
  5.    sp:   boolean;
  6. begin
  7.    sp := true;
  8.    stolower(s);
  9.    for i := 1 to length(s) do
  10.    begin
  11.       if sp then
  12.          s[i] := upcase(s[i]);
  13.       sp := s[i] = ' ';
  14.    end;
  15. end;
  16.  
  17.